|
|  Russite Triple FreeCell
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Triple FreeCell"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  3
  WIDTH  13 * CW
  HEIGHT  3 * CH + 11 * COH + 12 * COH

  ZeroToWin 156 - CARDSIN$2

| Foundations

  FOR stack = 0 TO 11
    FOUNDATION
      X stack * CW + CW / 2
      Y 0
      ID 2
      MAX 13
      FLAGS RotateJoin
    END
  END

| Tableau

  FOR stack = 0 TO 12
    STACK
      X stack * CW
      Y CH + CH
      FIRST 13
      DEAL 12,1
      DRAGUPTO 1 + EMPTY$3
      DragOffset -1
      FLAGS ClickFly Join__DC DeepCheck Drag__DC
      ID 1
    END
  END

| Cells

  FOR stack = 0 TO 9
    STACK
      X stack * CW + CW + CW / 2
      Y CH
      FIRST 1, 13
      MAX 1 
      FLAGS ClickFly PaintLast
      ID 3
    END
  END

END
